<script>on mouseupglobal DoGraph, GraphName, LabTitset lockscreen to trueput the clicktext into xput empty into field "high"put empty into field "low"repeat with y = 1 to the number of cd fieldsset visible of cd field y to falseend repeatset visible of cd field x to trueput x into field "FName"if cd field x is empty then exit mouseupput empty into PPrepeat with P=1 to the number of lines of cd field xput (the last word of line p of cd field x)&"," after PPend repeatput max(PP) into MaxPPfind MaxPP in cd field xput word 2 of the foundline into FLput line FL of cd field x into field "HigH"put Min(PP) into MinPPfind MinPP in cd field xput word 2 of the foundline into FLput line FL of cd field x into field "low"set lockscreen to falseend mouseup</script>